home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-07-16 | 9.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 a8 b5 30 | 00 00 00 18 00 00 00 20 |.......0|....... |
|00000010| 00 07 00 00 00 00 00 00 | 26 1e 00 00 26 39 00 00 |........|&...&9..|
|00000020| 26 4d 00 00 26 4d 00 00 | 26 4f 00 00 26 4f 00 00 |&M..&M..|&O..&O..|
|00000030| 26 4f 2d 2d 20 4c 65 61 | 72 6e 69 6e 67 20 4d 61 |&O-- Lea|rning Ma|
|00000040| 63 69 6e 74 6f 73 68 2c | 20 50 61 72 74 20 31 0d |cintosh,| Part 1.|
|00000050| 2d 2d 20 43 6f 70 79 72 | 69 67 68 74 20 31 39 39 |-- Copyr|ight 199|
|00000060| 30 20 2d 20 31 39 39 34 | 20 41 70 70 6c 65 20 43 |0 - 1994| Apple C|
|00000070| 6f 6d 70 75 74 65 72 2c | 20 49 6e 63 2e 04 04 0d |omputer,| Inc....|
|00000080| 2d 2d 20 41 6c 6c 20 72 | 69 67 68 74 73 20 72 65 |-- All r|ights re|
|00000090| 73 65 72 76 65 64 2e 0d | 2d 2d 20 62 79 20 49 6e |served..|-- by In|
|000000a0| 73 74 72 75 63 74 69 6f | 6e 61 6c 20 50 72 6f 64 |structio|nal Prod|
|000000b0| 75 63 74 73 20 40 20 41 | 70 70 6c 65 20 43 6f 6d |ucts @ A|pple Com|
|000000c0| 70 75 74 65 72 2c 20 49 | 6e 63 2e 0d 0d 2d 2d 20 |puter, I|nc...-- |
|000000d0| a5 a5 a5 20 47 45 4e 45 | 52 41 4c 20 48 41 4e 44 |... GENE|RAL HAND|
|000000e0| 4c 45 52 53 0d 2d 2d 20 | a5 a5 20 4e 41 56 49 47 |LERS.-- |.. NAVIG|
|000000f0| 41 54 49 4f 4e 20 42 55 | 54 54 4f 4e 53 0d 0d 6f |ATION BU|TTONS..o|
|00000100| 6e 20 6d 6f 75 73 65 44 | 6f 77 6e 41 63 74 69 6f |n mouseD|ownActio|
|00000110| 6e 20 77 68 61 74 54 6f | 44 6f 0d 20 20 70 75 74 |n whatTo|Do. put|
|00000120| 20 74 68 65 20 63 6c 69 | 63 6b 4f 6e 20 69 6e 74 | the cli|ckOn int|
|00000130| 6f 20 73 70 72 69 74 65 | 4e 75 6d 0d 20 20 69 66 |o sprite|Num. if|
|00000140| 20 73 70 72 69 74 65 4e | 75 6d 20 3d 20 32 32 20 | spriteN|um = 22 |
|00000150| 74 68 65 6e 20 72 69 67 | 68 74 42 74 6e 44 6f 77 |then rig|htBtnDow|
|00000160| 6e 20 77 68 61 74 54 6f | 44 6f 0d 20 20 65 6c 73 |n whatTo|Do. els|
|00000170| 65 20 69 66 20 73 70 72 | 69 74 65 4e 75 6d 20 3d |e if spr|iteNum =|
|00000180| 20 31 39 20 74 68 65 6e | 20 6c 65 66 74 42 74 6e | 19 then| leftBtn|
|00000190| 44 6f 77 6e 20 77 68 61 | 74 54 6f 44 6f 0d 20 20 |Down wha|tToDo. |
|000001a0| 65 6c 73 65 20 69 66 20 | 73 70 72 69 74 65 4e 75 |else if |spriteNu|
|000001b0| 6d 20 3d 20 32 31 20 74 | 68 65 6e 20 67 75 69 64 |m = 21 t|hen guid|
|000001c0| 65 42 74 6e 44 6f 77 6e | 20 77 68 61 74 54 6f 44 |eBtnDown| whatToD|
|000001d0| 6f 0d 20 20 65 6c 73 65 | 20 64 6f 20 77 68 61 74 |o. else| do what|
|000001e0| 54 6f 44 6f 0d 65 6e 64 | 20 6d 6f 75 73 65 44 6f |ToDo.end| mouseDo|
|000001f0| 77 6e 41 64 76 61 6e 63 | 65 0d 0d 6f 6e 20 69 6e |wnAdvanc|e..on in|
|00000200| 74 65 72 41 63 74 69 6f | 6e 20 64 6f 77 6e 53 70 |terActio|n downSp|
|00000210| 72 69 74 65 2c 77 68 65 | 72 65 54 6f 47 6f 0d 20 |rite,whe|reToGo. |
|00000220| 20 69 66 20 74 68 65 20 | 6d 6f 75 73 65 55 70 20 | if the |mouseUp |
|00000230| 74 68 65 6e 20 65 78 69 | 74 0d 20 20 70 75 74 20 |then exi|t. put |
|00000240| 74 68 65 20 63 6c 69 63 | 6b 4f 6e 20 69 6e 74 6f |the clic|kOn into|
|00000250| 20 73 70 72 69 74 65 4e | 75 6d 0d 20 20 62 75 74 | spriteN|um. but|
|00000260| 74 6f 6e 44 6f 77 6e 28 | 73 70 72 69 74 65 4e 75 |tonDown(|spriteNu|
|00000270| 6d 2c 64 6f 77 6e 53 70 | 72 69 74 65 2c 64 6f 77 |m,downSp|rite,dow|
|00000280| 6e 53 70 72 69 74 65 2c | 54 52 55 45 29 0d 20 20 |nSprite,|TRUE). |
|00000290| 67 6f 20 74 6f 20 77 68 | 65 72 65 54 6f 47 6f 0d |go to wh|ereToGo.|
|000002a0| 65 6e 64 20 69 6e 74 65 | 72 41 63 74 69 6f 6e 0d |end inte|rAction.|
|000002b0| 0d 6f 6e 20 72 69 67 68 | 74 42 74 6e 44 6f 77 6e |.on righ|tBtnDown|
|000002c0| 20 77 68 61 74 54 6f 44 | 6f 0d 20 20 2d 2d 20 32 | whatToD|o. -- 2|
|000002d0| 32 20 3d 20 74 68 65 20 | 73 70 72 69 74 65 20 6f |2 = the |sprite o|
|000002e0| 66 20 74 68 65 20 52 69 | 67 68 74 20 41 72 72 6f |f the Ri|ght Arro|
|000002f0| 77 20 62 75 74 74 6f 6e | 0d 20 20 2d 2d 20 52 69 |w button|. -- Ri|
|00000300| 67 68 74 20 41 72 72 6f | 77 2e 55 70 20 3d 20 67 |ght Arro|w.Up = g|
|00000310| 34 36 20 0d 20 20 2d 2d | 20 52 69 67 68 74 20 41 |46 . --| Right A|
|00000320| 72 72 6f 77 2e 44 6f 77 | 6e 20 3d 20 67 34 32 20 |rrow.Dow|n = g42 |
|00000330| 0d 20 20 69 66 20 74 68 | 65 20 6d 6f 75 73 65 55 |. if th|e mouseU|
|00000340| 70 20 74 68 65 6e 20 65 | 78 69 74 20 2d 2d 20 62 |p then e|xit -- b|
|00000350| 75 67 20 66 69 78 3a 20 | 69 66 20 75 73 65 72 20 |ug fix: |if user |
|00000360| 6d 6f 75 73 65 73 20 69 | 6e 20 77 69 74 68 20 62 |mouses i|n with b|
|00000370| 75 74 74 6f 6e 20 64 6f | 77 6e 0d 20 20 69 66 20 |utton do|wn. if |
|00000380| 62 75 74 74 6f 6e 44 6f | 77 6e 28 32 32 2c 67 34 |buttonDo|wn(22,g4|
|00000390| 36 2c 67 34 32 2c 54 52 | 55 45 29 20 74 68 65 6e |6,g42,TR|UE) then|
|000003a0| 0d 20 20 20 20 64 6f 20 | 77 68 61 74 54 6f 44 6f |. do |whatToDo|
|000003b0| 0d 20 20 20 20 77 68 65 | 6e 20 74 69 6d 65 4f 75 |. whe|n timeOu|
|000003c0| 74 20 74 68 65 6e 20 6e | 6f 74 68 69 6e 67 20 2d |t then n|othing -|
|000003d0| 2d 20 72 65 73 65 74 20 | 74 68 65 20 74 69 6d 65 |- reset |the time|
|000003e0| 4f 75 74 0d 20 20 65 6c | 73 65 20 67 6f 20 74 6f |Out. el|se go to|
|000003f0| 20 74 68 65 20 66 72 61 | 6d 65 0d 65 6e 64 20 72 | the fra|me.end r|
|00000400| 69 67 68 74 42 74 6e 44 | 6f 77 6e 0d 0d 6f 6e 20 |ightBtnD|own..on |
|00000410| 6c 65 66 74 42 74 6e 44 | 6f 77 6e 20 77 68 61 74 |leftBtnD|own what|
|00000420| 54 6f 44 6f 0d 20 20 2d | 2d 20 31 39 20 3d 20 74 |ToDo. -|- 19 = t|
|00000430| 68 65 20 73 70 72 69 74 | 65 20 6f 66 20 74 68 65 |he sprit|e of the|
|00000440| 20 4c 65 66 74 20 41 72 | 72 6f 77 20 62 75 74 74 | Left Ar|row butt|
|00000450| 6f 6e 0d 20 20 2d 2d 20 | 4c 65 66 74 20 41 72 72 |on. -- |Left Arr|
|00000460| 6f 77 2e 55 70 20 3d 20 | 67 34 35 0d 20 20 2d 2d |ow.Up = |g45. --|
|00000470| 20 4c 65 66 74 20 41 72 | 72 6f 77 2e 44 6f 77 6e | Left Ar|row.Down|
|00000480| 20 3d 20 67 34 31 20 0d | 20 20 69 66 20 74 68 65 | = g41 .| if the|
|00000490| 20 6d 6f 75 73 65 55 70 | 20 74 68 65 6e 20 65 78 | mouseUp| then ex|
|000004a0| 69 74 20 2d 2d 20 62 75 | 67 20 66 69 78 3a 20 69 |it -- bu|g fix: i|
|000004b0| 66 20 75 73 65 72 20 6d | 6f 75 73 65 73 20 69 6e |f user m|ouses in|
|000004c0| 20 77 69 74 68 20 62 75 | 74 74 6f 6e 20 64 6f 77 | with bu|tton dow|
|000004d0| 6e 0d 20 20 69 66 20 62 | 75 74 74 6f 6e 44 6f 77 |n. if b|uttonDow|
|000004e0| 6e 28 31 39 2c 67 34 35 | 2c 67 34 31 2c 54 52 55 |n(19,g45|,g41,TRU|
|000004f0| 45 29 20 74 68 65 6e 20 | 0d 20 20 20 20 64 6f 20 |E) then |. do |
|00000500| 77 68 61 74 54 6f 44 6f | 0d 20 20 65 6c 73 65 20 |whatToDo|. else |
|00000510| 67 6f 20 74 6f 20 74 68 | 65 20 66 72 61 6d 65 0d |go to th|e frame.|
|00000520| 65 6e 64 20 6c 65 66 74 | 42 74 6e 44 6f 77 6e 0d |end left|BtnDown.|
|00000530| 0d 6f 6e 20 67 75 69 64 | 65 42 74 6e 44 6f 77 6e |.on guid|eBtnDown|
|00000540| 20 77 68 61 74 54 6f 44 | 6f 0d 20 20 2d 2d 20 32 | whatToD|o. -- 2|
|00000550| 31 20 3d 20 74 68 65 20 | 73 70 72 69 74 65 20 6f |1 = the |sprite o|
|00000560| 66 20 74 68 65 20 4c 65 | 66 74 20 41 72 72 6f 77 |f the Le|ft Arrow|
|00000570| 20 62 75 74 74 6f 6e 0d | 20 20 2d 2d 20 47 75 69 | button.| -- Gui|
|00000580| 64 65 20 42 75 74 74 6f | 6e 2e 55 70 20 3d 20 61 |de Butto|n.Up = a|
|00000590| 32 33 0d 20 20 2d 2d 20 | 4c 65 66 74 20 41 72 72 |23. -- |Left Arr|
|000005a0| 6f 77 2e 44 6f 77 6e 20 | 3d 20 61 32 34 20 0d 20 |ow.Down |= a24 . |
|000005b0| 20 69 66 20 74 68 65 20 | 6d 6f 75 73 65 55 70 20 | if the |mouseUp |
|000005c0| 74 68 65 6e 20 65 78 69 | 74 20 2d 2d 20 62 75 67 |then exi|t -- bug|
|000005d0| 20 66 69 78 3a 20 69 66 | 20 75 73 65 72 20 6d 6f | fix: if| user mo|
|000005e0| 75 73 65 73 20 69 6e 20 | 77 69 74 68 20 62 75 74 |uses in |with but|
|000005f0| 74 6f 6e 20 64 6f 77 6e | 0d 20 20 69 66 20 62 75 |ton down|. if bu|
|00000600| 74 74 6f 6e 44 6f 77 6e | 28 32 31 2c 61 32 33 2c |ttonDown|(21,a23,|
|00000610| 61 32 34 2c 46 41 4c 53 | 45 29 20 74 68 65 6e 0d |a24,FALS|E) then.|
|00000620| 20 20 20 20 64 6f 20 77 | 68 61 74 54 6f 44 6f 0d | do w|hatToDo.|
|00000630| 20 20 65 6c 73 65 20 67 | 6f 20 74 6f 20 74 68 65 | else g|o to the|
|00000640| 20 66 72 61 6d 65 0d 65 | 6e 64 20 67 75 69 64 65 | frame.e|nd guide|
|00000650| 42 74 6e 44 6f 77 6e 0d | 0d 6f 6e 20 62 75 74 74 |BtnDown.|.on butt|
|00000660| 6f 6e 44 6f 77 6e 20 73 | 70 72 69 74 65 4e 75 6d |onDown s|priteNum|
|00000670| 2c 75 70 43 61 73 74 2c | 64 6f 77 6e 43 61 73 74 |,upCast,|downCast|
|00000680| 2c 66 69 6e 69 73 68 55 | 70 0d 20 20 70 75 70 70 |,finishU|p. pupp|
|00000690| 65 74 53 70 72 69 74 65 | 20 73 70 72 69 74 65 4e |etSprite| spriteN|
|000006a0| 75 6d 2c 54 52 55 45 0d | 20 20 73 65 74 20 74 68 |um,TRUE.| set th|
|000006b0| 65 20 63 61 73 74 4e 75 | 6d 20 6f 66 20 73 70 72 |e castNu|m of spr|
|000006c0| 69 74 65 20 73 70 72 69 | 74 65 4e 75 6d 20 74 6f |ite spri|teNum to|
|000006d0| 20 64 6f 77 6e 43 61 73 | 74 0d 20 20 75 70 64 61 | downCas|t. upda|
|000006e0| 74 65 53 74 61 67 65 0d | 20 20 72 65 70 65 61 74 |teStage.| repeat|
|000006f0| 20 77 68 69 6c 65 20 74 | 68 65 20 6d 6f 75 73 65 | while t|he mouse|
|00000700| 44 6f 77 6e 0d 20 20 20 | 20 69 66 20 72 6f 6c 6c |Down. | if roll|
|00000710| 4f 76 65 72 28 73 70 72 | 69 74 65 4e 75 6d 29 20 |Over(spr|iteNum) |
|00000720| 74 68 65 6e 20 0d 20 20 | 20 20 20 20 73 65 74 20 |then . | set |
|00000730| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|00000740| 70 72 69 74 65 20 73 70 | 72 69 74 65 4e 75 6d 20 |prite sp|riteNum |
|00000750| 74 6f 20 64 6f 77 6e 43 | 61 73 74 0d 20 20 20 20 |to downC|ast. |
|00000760| 65 6c 73 65 20 73 65 74 | 20 74 68 65 20 63 61 73 |else set| the cas|
|00000770| 74 4e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 73 |tNum of |sprite s|
|00000780| 70 72 69 74 65 4e 75 6d | 20 74 6f 20 75 70 43 61 |priteNum| to upCa|
|00000790| 73 74 0d 20 20 20 20 75 | 70 64 61 74 65 53 74 61 |st. u|pdateSta|
|000007a0| 67 65 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 20 |ge. end| repeat |
|000007b0| 0d 20 20 70 75 74 20 28 | 74 68 65 20 63 61 73 74 |. put (|the cast|
|000007c0| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 73 70 |Num of s|prite sp|
|000007d0| 72 69 74 65 4e 75 6d 20 | 3d 20 64 6f 77 6e 43 61 |riteNum |= downCa|
|000007e0| 73 74 29 20 69 6e 74 6f | 20 54 52 55 45 6f 72 46 |st) into| TRUEorF|
|000007f0| 41 4c 53 45 20 0d 20 20 | 69 66 20 66 69 6e 69 73 |ALSE . |if finis|
|00000800| 68 55 70 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |hUp then|. set|
|00000810| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|00000820| 73 70 72 69 74 65 20 73 | 70 72 69 74 65 4e 75 6d |sprite s|priteNum|
|00000830| 20 74 6f 20 75 70 43 61 | 73 74 0d 20 20 20 20 75 | to upCa|st. u|
|00000840| 70 64 61 74 65 53 74 61 | 67 65 0d 20 20 65 6e 64 |pdateSta|ge. end|
|00000850| 20 69 66 0d 20 20 70 75 | 70 70 65 74 53 70 72 69 | if. pu|ppetSpri|
|00000860| 74 65 20 73 70 72 69 74 | 65 4e 75 6d 2c 20 46 41 |te sprit|eNum, FA|
|00000870| 4c 53 45 0d 20 20 72 65 | 74 75 72 6e 20 54 52 55 |LSE. re|turn TRU|
|00000880| 45 6f 72 46 41 4c 53 45 | 0d 65 6e 64 20 62 75 74 |EorFALSE|.end but|
|00000890| 74 6f 6e 44 6f 77 6e 0d | 0d 2d 2d 20 a5 a5 20 52 |tonDown.|.-- .. R|
|000008a0| 45 53 45 54 20 53 50 52 | 49 54 45 53 0d 0d 6f 6e |ESET SPR|ITES..on|
|000008b0| 20 70 75 70 70 65 74 73 | 4f 66 66 0d 20 20 72 65 | puppets|Off. re|
|000008c0| 70 65 61 74 20 77 69 74 | 68 20 73 70 72 69 74 65 |peat wit|h sprite|
|000008d0| 4e 75 6d 20 3d 20 31 20 | 74 6f 20 32 34 0d 20 20 |Num = 1 |to 24. |
|000008e0| 20 20 70 75 70 70 65 74 | 53 70 72 69 74 65 20 73 | puppet|Sprite s|
|000008f0| 70 72 69 74 65 4e 75 6d | 2c 20 46 41 4c 53 45 0d |priteNum|, FALSE.|
|00000900| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 | end re|peat.end|
|00000910| 20 70 75 70 70 65 74 73 | 4f 66 66 0d 0d 6f 6e 20 | puppets|Off..on |
|00000920| 69 6d 6d 65 64 69 61 74 | 65 73 4f 66 66 0d 20 20 |immediat|esOff. |
|00000930| 2d 2d 20 73 70 72 69 74 | 65 73 20 31 39 20 74 6f |-- sprit|es 19 to|
|00000940| 20 32 34 20 61 72 65 20 | 74 68 65 20 6e 61 76 69 | 24 are |the navi|
|00000950| 67 61 74 69 6f 6e 20 63 | 6f 6e 74 72 6f 6c 73 0d |gation c|ontrols.|
|00000960| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 73 70 | repeat| with sp|
|00000970| 72 69 74 65 4e 75 6d 20 | 3d 20 31 20 74 6f 20 31 |riteNum |= 1 to 1|
|00000980| 38 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 69 6d |8. se|t the im|
|00000990| 6d 65 64 69 61 74 65 20 | 6f 66 20 73 70 72 69 74 |mediate |of sprit|
|000009a0| 65 20 73 70 72 69 74 65 | 4e 75 6d 20 74 6f 20 46 |e sprite|Num to F|
|000009b0| 41 4c 53 45 0d 20 20 65 | 6e 64 20 72 65 70 65 61 |ALSE. e|nd repea|
|000009c0| 74 0d 65 6e 64 20 69 6d | 6d 65 64 69 61 74 65 73 |t.end im|mediates|
|000009d0| 4f 66 66 0d 0d 2d 2d 20 | a5 a5 20 52 45 53 45 54 |Off..-- |.. RESET|
|000009e0| 20 54 49 4d 45 52 0d 0d | 6f 6e 20 52 65 73 65 74 | TIMER..|on Reset|
|000009f0| 41 6e 64 44 6f 20 57 68 | 61 74 54 6f 44 6f 20 2d |AndDo Wh|atToDo -|
|00000a00| 2d 20 54 75 72 6e 73 20 | 74 69 6d 65 72 20 6f 66 |- Turns |timer of|
|00000a10| 66 20 64 6f 65 73 20 57 | 68 61 74 54 6f 44 6f 0d |f does W|hatToDo.|
|00000a20| 20 20 77 68 65 6e 20 74 | 69 6d 65 4f 75 74 20 74 | when t|imeOut t|
|00000a30| 68 65 6e 20 6e 6f 74 68 | 69 6e 67 20 20 0d 20 20 |hen noth|ing . |
|00000a40| 64 6f 20 57 68 61 74 54 | 6f 44 6f 0d 65 6e 64 20 |do WhatT|oDo.end |
|00000a50| 52 65 73 65 74 41 6e 64 | 57 68 61 74 0d 0d 2d 2d |ResetAnd|What..--|
|00000a60| 20 a5 a5 20 4d 45 4e 55 | 20 48 41 4e 44 4c 45 52 | .. MENU| HANDLER|
|00000a70| 53 0d 0d 6f 6e 20 4e 65 | 77 4d 65 6e 75 0d 20 20 |S..on Ne|wMenu. |
|00000a80| 67 6c 6f 62 61 6c 20 4d | 65 6e 75 2c 20 6d 54 6f |global M|enu, mTo|
|00000a90| 70 2c 20 6d 4c 65 66 74 | 2c 20 6d 42 6f 74 74 6f |p, mLeft|, mBotto|
|00000aa0| 6d 2c 20 6d 52 69 67 68 | 74 2c 20 6d 53 70 61 63 |m, mRigh|t, mSpac|
|00000ab0| 69 6e 67 0d 20 20 70 75 | 74 20 31 39 20 69 6e 74 |ing. pu|t 19 int|
|00000ac0| 6f 20 6d 54 6f 70 20 20 | 20 2d 2d 6d 65 6e 75 20 |o mTop | --menu |
|00000ad0| 72 65 63 74 0d 20 20 70 | 75 74 20 32 34 30 20 69 |rect. p|ut 240 i|
|00000ae0| 6e 74 6f 20 6d 4c 65 66 | 74 0d 20 20 70 75 74 20 |nto mLef|t. put |
|00000af0| 34 30 20 69 6e 74 6f 20 | 6d 42 6f 74 74 6f 6d 0d |40 into |mBottom.|
|00000b00| 20 20 70 75 74 20 36 32 | 30 20 69 6e 74 6f 20 6d | put 62|0 into m|
|00000b10| 52 69 67 68 74 0d 20 20 | 70 75 74 20 34 20 69 6e |Right. |put 4 in|
|00000b20| 74 6f 20 6d 53 70 61 63 | 69 6e 67 20 2d 2d c6 20 |to mSpac|ing --. |
|00000b30| 4c 6f 63 61 6c 69 7a 65 | 0d 20 20 69 66 20 6f 62 |Localize|. if ob|
|00000b40| 6a 65 63 74 70 28 4d 65 | 6e 75 29 20 74 68 65 6e |jectp(Me|nu) then|
|00000b50| 20 4d 65 6e 75 28 6d 44 | 69 73 70 6f 73 65 29 0d | Menu(mD|ispose).|
|00000b60| 20 20 6f 70 65 6e 58 4c | 69 62 20 22 53 54 4d 65 | openXL|ib "STMe|
|00000b70| 6e 75 42 61 72 22 0d 20 | 20 73 65 74 20 4d 65 6e |nuBar". | set Men|
|00000b80| 75 20 3d 20 53 54 4d 65 | 6e 75 42 61 72 28 6d 4e |u = STMe|nuBar(mN|
|00000b90| 65 77 29 0d 20 20 75 70 | 64 61 74 65 53 74 61 67 |ew). up|dateStag|
|00000ba0| 65 0d 65 6e 64 20 4e 65 | 77 4d 65 6e 75 0d 0d 6f |e.end Ne|wMenu..o|
|00000bb0| 6e 20 48 65 6c 70 4d 65 | 6e 75 0d 20 20 67 6c 6f |n HelpMe|nu. glo|
|00000bc0| 62 61 6c 20 4d 65 6e 75 | 2c 20 6d 54 6f 70 2c 20 |bal Menu|, mTop, |
|00000bd0| 6d 4c 65 66 74 2c 20 6d | 42 6f 74 74 6f 6d 2c 20 |mLeft, m|Bottom, |
|00000be0| 6d 52 69 67 68 74 2c 20 | 6d 53 70 61 63 69 6e 67 |mRight, |mSpacing|
|00000bf0| 0d 20 20 70 75 74 20 31 | 39 20 69 6e 74 6f 20 6d |. put 1|9 into m|
|00000c00| 54 6f 70 20 20 20 2d 2d | 20 4d 61 63 42 61 73 69 |Top --| MacBasi|
|00000c10| 63 73 20 6d 65 6e 75 20 | 72 65 63 74 0d 20 20 70 |cs menu |rect. p|
|00000c20| 75 74 20 35 35 33 20 69 | 6e 74 6f 20 6d 4c 65 66 |ut 553 i|nto mLef|
|00000c30| 74 0d 20 20 70 75 74 20 | 34 30 20 69 6e 74 6f 20 |t. put |40 into |
|00000c40| 6d 42 6f 74 74 6f 6d 0d | 20 20 70 75 74 20 36 32 |mBottom.| put 62|
|00000c50| 30 20 69 6e 74 6f 20 6d | 52 69 67 68 74 0d 20 20 |0 into m|Right. |
|00000c60| 70 75 74 20 34 20 69 6e | 74 6f 20 6d 53 70 61 63 |put 4 in|to mSpac|
|00000c70| 69 6e 67 20 2d 2d c6 20 | 4c 6f 63 61 6c 69 7a 65 |ing --. |Localize|
|00000c80| 0d 20 20 69 66 20 6f 62 | 6a 65 63 74 70 28 4d 65 |. if ob|jectp(Me|
|00000c90| 6e 75 29 20 74 68 65 6e | 20 4d 65 6e 75 28 6d 44 |nu) then| Menu(mD|
|00000ca0| 69 73 70 6f 73 65 29 0d | 20 20 6f 70 65 6e 58 4c |ispose).| openXL|
|00000cb0| 69 62 20 22 53 54 4d 65 | 6e 75 42 61 72 22 0d 20 |ib "STMe|nuBar". |
|00000cc0| 20 73 65 74 20 4d 65 6e | 75 20 3d 20 53 54 4d 65 | set Men|u = STMe|
|00000cd0| 6e 75 42 61 72 28 6d 4e | 65 77 29 0d 65 6e 64 20 |nuBar(mN|ew).end |
|00000ce0| 48 65 6c 70 4d 65 6e 75 | 0d 0d 6f 6e 20 4f 70 65 |HelpMenu|..on Ope|
|00000cf0| 6e 41 70 70 4d 65 6e 75 | 20 6d 43 61 73 74 0d 20 |nAppMenu| mCast. |
|00000d00| 20 48 65 6c 70 4d 65 6e | 75 0d 20 20 4f 70 65 6e | HelpMen|u. Open|
|00000d10| 4d 65 6e 75 20 6d 43 61 | 73 74 0d 65 6e 64 20 4f |Menu mCa|st.end O|
|00000d20| 70 65 6e 41 70 70 4d 65 | 6e 75 0d 0d 6f 6e 20 4f |penAppMe|nu..on O|
|00000d30| 70 65 6e 4d 65 6e 75 20 | 6d 43 61 73 74 0d 20 20 |penMenu |mCast. |
|00000d40| 67 6c 6f 62 61 6c 20 4d | 65 6e 75 2c 20 6d 54 6f |global M|enu, mTo|
|00000d50| 70 2c 20 6d 4c 65 66 74 | 2c 20 6d 42 6f 74 74 6f |p, mLeft|, mBotto|
|00000d60| 6d 2c 20 6d 52 69 67 68 | 74 2c 20 6d 43 6f 6e 74 |m, mRigh|t, mCont|
|00000d70| 65 6e 74 73 2c 20 6d 49 | 6e 64 65 78 2c 20 6d 53 |ents, mI|ndex, mS|
|00000d80| 70 61 63 69 6e 67 0d 20 | 20 2d 2d 0d 20 20 70 75 |pacing. | --. pu|
|00000d90| 74 20 74 68 65 20 74 65 | 78 74 20 6f 66 20 63 61 |t the te|xt of ca|
|00000da0| 73 74 20 6d 43 61 73 74 | 20 69 6e 74 6f 20 6d 65 |st mCast| into me|
|00000db0| 6e 75 41 72 72 61 79 0d | 20 20 2d 2d 20 2a 2a 20 |nuArray.| -- ** |
|00000dc0| 28 6c 69 6e 65 20 31 20 | 6f 66 20 6d 65 6e 75 41 |(line 1 |of menuA|
|00000dd0| 72 72 61 79 20 69 73 20 | 61 20 63 6f 6d 6d 65 6e |rray is |a commen|
|00000de0| 74 29 2e 20 2a 2a 20 0d | 20 20 70 75 74 20 6c 69 |t). ** .| put li|
|00000df0| 6e 65 20 32 20 6f 66 20 | 6d 65 6e 75 41 72 72 61 |ne 2 of |menuArra|
|00000e00| 79 20 69 6e 74 6f 20 6d | 43 6f 6e 74 65 6e 74 73 |y into m|Contents|
|00000e10| 0d 20 20 70 75 74 20 6c | 69 6e 65 20 33 20 6f 66 |. put l|ine 3 of|
|00000e20| 20 6d 65 6e 75 41 72 72 | 61 79 20 69 6e 74 6f 20 | menuArr|ay into |
|00000e30| 6d 49 6e 64 65 78 0d 20 | 20 4d 65 6e 75 28 6d 4f |mIndex. | Menu(mO|
|00000e40| 70 65 6e 4d 65 6e 75 42 | 61 72 2c 20 6d 54 6f 70 |penMenuB|ar, mTop|
|00000e50| 2c 20 6d 4c 65 66 74 2c | 20 6d 42 6f 74 74 6f 6d |, mLeft,| mBottom|
|00000e60| 2c 20 6d 52 69 67 68 74 | 2c 20 6d 53 70 61 63 69 |, mRight|, mSpaci|
|00000e70| 6e 67 2c 20 6d 43 6f 6e | 74 65 6e 74 73 29 0d 65 |ng, mCon|tents).e|
|00000e80| 6e 64 20 4f 70 65 6e 4d | 65 6e 75 0d 0d 6f 6e 20 |nd OpenM|enu..on |
|00000e90| 52 75 6e 4d 65 6e 75 0d | 20 20 67 6c 6f 62 61 6c |RunMenu.| global|
|00000ea0| 20 4d 65 6e 75 2c 6d 49 | 6e 64 65 78 0d 20 20 4d | Menu,mI|ndex. M|
|00000eb0| 65 6e 75 28 6d 50 72 6f | 63 65 73 73 45 76 65 6e |enu(mPro|cessEven|
|00000ec0| 74 73 29 0d 20 20 70 75 | 74 20 74 68 65 20 72 65 |ts). pu|t the re|
|00000ed0| 73 75 6c 74 20 69 6e 74 | 6f 20 6d 45 76 65 6e 74 |sult int|o mEvent|
|00000ee0| 0d 20 20 69 66 20 73 74 | 72 69 6e 67 70 28 6d 45 |. if st|ringp(mE|
|00000ef0| 76 65 6e 74 29 20 74 68 | 65 6e 0d 20 20 20 20 2d |vent) th|en. -|
|00000f00| 2d 20 2a 2a 20 28 45 61 | 63 68 20 73 65 74 20 6f |- ** (Ea|ch set o|
|00000f10| 66 20 74 68 72 65 65 20 | 69 74 65 6d 73 20 69 6e |f three |items in|
|00000f20| 20 6d 49 6e 64 65 78 20 | 73 74 61 6e 64 73 20 66 | mIndex |stands f|
|00000f30| 6f 72 20 61 20 77 6f 72 | 6b 69 6e 67 20 6d 65 6e |or a wor|king men|
|00000f40| 75 20 63 68 6f 69 63 65 | 29 2e 20 2a 2a 0d 20 20 |u choice|). **. |
|00000f50| 20 20 70 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 | put th|e number|
|00000f60| 20 6f 66 20 69 74 65 6d | 73 20 69 6e 20 6d 49 6e | of item|s in mIn|
|00000f70| 64 65 78 2f 33 20 69 6e | 74 6f 20 6e 62 72 4f 66 |dex/3 in|to nbrOf|
|00000f80| 54 72 69 70 6c 65 74 73 | 0d 20 20 20 20 72 65 70 |Triplets|. rep|
|00000f90| 65 61 74 20 77 69 74 68 | 20 69 3d 31 20 74 6f 20 |eat with| i=1 to |
|00000fa0| 6e 62 72 4f 66 54 72 69 | 70 6c 65 74 73 0d 20 20 |nbrOfTri|plets. |
|00000fb0| 20 20 20 20 70 75 74 20 | 69 74 65 6d 20 28 69 2a | put |item (i*|
|00000fc0| 33 29 20 2d 20 32 20 74 | 6f 20 28 69 2a 33 29 20 |3) - 2 t|o (i*3) |
|00000fd0| 2d 20 31 20 6f 66 20 6d | 49 6e 64 65 78 20 69 6e |- 1 of m|Index in|
|00000fe0| 74 6f 20 6d 49 74 65 6d | 49 44 0d 20 20 20 20 20 |to mItem|ID. |
|00000ff0| 20 69 66 20 6d 45 76 65 | 6e 74 20 3d 20 6d 49 74 | if mEve|nt = mIt|
|00001000| 65 6d 49 44 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |emID the|n. |
|00001010| 20 20 43 6c 6f 73 65 4d | 65 6e 75 0d 20 20 20 20 | CloseM|enu. |
|00001020| 20 20 20 20 70 75 74 20 | 69 74 65 6d 20 28 69 2a | put |item (i*|
|00001030| 33 29 20 6f 66 20 6d 49 | 6e 64 65 78 20 69 6e 74 |3) of mI|ndex int|
|00001040| 6f 20 6d 41 63 74 69 6f | 6e 0d 20 20 20 20 20 20 |o mActio|n. |
|00001050| 20 20 64 6f 20 6d 41 63 | 74 69 6f 6e 0d 20 20 20 | do mAc|tion. |
|00001060| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6e | end i|f. en|
|00001070| 64 20 72 65 70 65 61 74 | 0d 20 20 65 6e 64 20 69 |d repeat|. end i|
|00001080| 66 0d 20 20 67 6f 20 74 | 68 65 20 66 72 61 6d 65 |f. go t|he frame|
|00001090| 0d 65 6e 64 20 52 75 6e | 4d 65 6e 75 0d 0d 6f 6e |.end Run|Menu..on|
|000010a0| 20 43 6c 6f 73 65 4d 65 | 6e 75 0d 20 20 67 6c 6f | CloseMe|nu. glo|
|000010b0| 62 61 6c 20 4d 65 6e 75 | 0d 20 20 4d 65 6e 75 28 |bal Menu|. Menu(|
|000010c0| 6d 43 6c 6f 73 65 4d 65 | 6e 75 42 61 72 29 0d 20 |mCloseMe|nuBar). |
|000010d0| 20 75 70 64 61 74 65 53 | 74 61 67 65 0d 65 6e 64 | updateS|tage.end|
|000010e0| 20 43 6c 6f 73 65 4d 65 | 6e 75 0d 0d 2d 2d 20 a5 | CloseMe|nu..-- .|
|000010f0| a5 20 51 55 49 54 54 49 | 4e 47 0d 0d 6f 6e 20 71 |. QUITTI|NG..on q|
|00001100| 75 69 74 4d 61 63 54 75 | 74 6f 72 69 61 6c 0d 20 |uitMacTu|torial. |
|00001110| 20 4d 6f 6e 69 74 6f 72 | 43 68 65 63 6b 0d 20 20 | Monitor|Check. |
|00001120| 52 65 73 74 6f 72 65 42 | 61 6c 6c 6f 6f 6e 73 0d |RestoreB|alloons.|
|00001130| 20 20 72 65 73 74 6f 72 | 65 43 6f 6e 74 72 6f 6c | restor|eControl|
|00001140| 53 74 72 69 70 0d 20 20 | 71 75 69 74 20 0d 65 6e |Strip. |quit .en|
|00001150| 64 20 71 75 69 74 4d 61 | 63 54 75 74 6f 72 69 61 |d quitMa|cTutoria|
|00001160| 6c 0d 0d 6f 6e 20 43 68 | 65 63 6b 51 0d 20 20 2d |l..on Ch|eckQ. -|
|00001170| 2d 20 c6 20 6c 6f 63 61 | 6c 69 7a 65 20 74 68 65 |- . loca|lize the|
|00001180| 20 6b 65 79 62 6f 61 72 | 64 20 65 71 75 69 76 61 | keyboar|d equiva|
|00001190| 6c 65 6e 74 20 66 6f 72 | 20 51 75 69 74 0d 20 20 |lent for| Quit. |
|000011a0| 67 6c 6f 62 61 6c 20 4c | 65 61 72 6e 69 6e 67 42 |global L|earningB|
|000011b0| 61 73 69 63 73 46 72 61 | 6d 65 0d 20 20 69 66 20 |asicsFra|me. if |
|000011c0| 74 68 65 20 63 6f 6d 6d | 61 6e 64 44 6f 77 6e 20 |the comm|andDown |
|000011d0| 41 4e 44 20 28 74 68 65 | 20 6b 65 79 20 3d 20 22 |AND (the| key = "|
|000011e0| 51 22 29 20 74 68 65 6e | 20 2d 2d 20 c6 0d 20 20 |Q") then| -- .. |
|000011f0| 20 20 69 66 20 6d 61 72 | 6b 65 72 28 30 29 20 3c | if mar|ker(0) <|
|00001200| 20 6c 61 62 65 6c 28 22 | 43 68 6f 69 63 65 73 22 | label("|Choices"|
|00001210| 29 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 70 75 |) then .| pu|
|00001220| 74 20 74 68 65 20 66 72 | 61 6d 65 20 69 6e 74 6f |t the fr|ame into|
|00001230| 20 4c 65 61 72 6e 69 6e | 67 42 61 73 69 63 73 46 | Learnin|gBasicsF|
|00001240| 72 61 6d 65 0d 20 20 20 | 20 20 20 77 68 65 6e 20 |rame. | when |
|00001250| 74 69 6d 65 4f 75 74 20 | 74 68 65 6e 20 6e 6f 74 |timeOut |then not|
|00001260| 68 69 6e 67 20 20 0d 20 | 20 20 20 20 20 67 6f 20 |hing . | go |
|00001270| 74 6f 20 22 43 68 6f 69 | 63 65 73 22 0d 20 20 20 |to "Choi|ces". |
|00001280| 20 65 6e 64 20 69 66 0d | 20 20 65 6c 73 65 20 69 | end if.| else i|
|00001290| 66 20 74 68 65 20 63 6f | 6e 74 72 6f 6c 44 6f 77 |f the co|ntrolDow|
|000012a0| 6e 20 41 4e 44 20 74 68 | 65 20 6f 70 74 69 6f 6e |n AND th|e option|
|000012b0| 44 6f 77 6e 20 41 4e 44 | 20 c2 0d 20 20 28 63 68 |Down AND| .. (ch|
|000012c0| 61 72 54 6f 4e 75 6d 28 | 74 68 65 20 6b 65 79 29 |arToNum(|the key)|
|000012d0| 20 3d 20 39 36 29 20 74 | 68 65 6e 20 74 65 6c 6c | = 96) t|hen tell|
|000012e0| 46 72 61 6d 65 4e 75 6d | 62 65 72 20 2d 2d 20 a5 |FrameNum|ber -- .|
|000012f0| a5 20 54 65 73 74 69 6e | 67 20 54 6f 6f 6c 0d 65 |. Testin|g Tool.e|
|00001300| 6e 64 20 43 68 65 63 6b | 51 0d 0d 6f 6e 20 74 65 |nd Check|Q..on te|
|00001310| 6c 6c 46 72 61 6d 65 4e | 75 6d 62 65 72 20 2d 2d |llFrameN|umber --|
|00001320| 20 a5 a5 20 54 65 73 74 | 69 6e 67 20 54 6f 6f 6c | .. Test|ing Tool|
|00001330| 0d 20 20 61 6c 65 72 74 | 20 22 43 75 72 72 65 6e |. alert| "Curren|
|00001340| 74 20 66 69 6c 65 3a 22 | 20 26 26 20 74 68 65 20 |t file:"| && the |
|00001350| 6d 6f 76 69 65 20 26 20 | 72 65 74 75 72 6e 20 26 |movie & |return &|
|00001360| 20 22 43 75 72 72 65 6e | 74 20 66 72 61 6d 65 3a | "Curren|t frame:|
|00001370| 22 20 26 26 20 28 74 68 | 65 20 66 72 61 6d 65 29 |" && (th|e frame)|
|00001380| 0d 65 6e 64 20 74 65 6c | 6c 46 72 61 6d 65 4e 75 |.end tel|lFrameNu|
|00001390| 6d 62 65 72 0d 0d 2d 2d | 20 a5 a5 20 53 54 41 52 |mber..--| .. STAR|
|000013a0| 54 20 55 50 20 41 4e 44 | 20 53 48 55 54 20 44 4f |T UP AND| SHUT DO|
|000013b0| 57 4e 20 4d 4f 56 49 45 | 0d 0d 6f 6e 20 73 74 61 |WN MOVIE|..on sta|
|000013c0| 72 74 4d 6f 76 69 65 0d | 20 20 67 6c 6f 62 61 6c |rtMovie.| global|
|000013d0| 20 73 6f 75 6e 64 56 6f | 6c 0d 20 20 61 64 6a 75 | soundVo|l. adju|
|000013e0| 73 74 50 61 6c 65 74 74 | 65 0d 20 20 73 65 74 20 |stPalett|e. set |
|000013f0| 74 68 65 20 65 78 69 74 | 4c 6f 63 6b 20 74 6f 20 |the exit|Lock to |
|00001400| 54 52 55 45 0d 20 20 4e | 65 77 4d 65 6e 75 0d 20 |TRUE. N|ewMenu. |
|00001410| 20 70 75 74 20 74 68 65 | 20 76 6f 6c 75 6d 65 20 | put the| volume |
|00001420| 6f 66 20 73 6f 75 6e 64 | 20 32 20 69 6e 74 6f 20 |of sound| 2 into |
|00001430| 73 6f 75 6e 64 56 6f 6c | 0d 20 20 73 65 74 20 74 |soundVol|. set t|
|00001440| 68 65 20 76 6f 6c 75 6d | 65 20 6f 66 20 73 6f 75 |he volum|e of sou|
|00001450| 6e 64 20 32 20 74 6f 20 | 31 33 30 0d 20 20 77 68 |nd 2 to |130. wh|
|00001460| 65 6e 20 4b 65 79 44 6f | 77 6e 20 74 68 65 6e 20 |en KeyDo|wn then |
|00001470| 43 68 65 63 6b 51 0d 20 | 20 2d 2d 20 73 65 74 20 |CheckQ. | -- set |
|00001480| 75 70 20 6c 65 66 74 20 | 61 6e 64 20 72 69 67 68 |up left |and righ|
|00001490| 74 20 61 72 72 6f 77 0d | 20 20 73 65 74 20 74 68 |t arrow.| set th|
|000014a0| 65 20 69 6d 6d 65 64 69 | 61 74 65 20 6f 66 20 73 |e immedi|ate of s|
|000014b0| 70 72 69 74 65 20 31 39 | 20 74 6f 20 54 52 55 45 |prite 19| to TRUE|
|000014c0| 20 2d 2d 20 4c 65 66 74 | 20 41 72 72 6f 77 0d 20 | -- Left| Arrow. |
|000014d0| 20 73 65 74 20 74 68 65 | 20 69 6d 6d 65 64 69 61 | set the| immedia|
|000014e0| 74 65 20 6f 66 20 73 70 | 72 69 74 65 20 32 30 20 |te of sp|rite 20 |
|000014f0| 74 6f 20 54 52 55 45 20 | 2d 2d 20 4c 65 74 20 4d |to TRUE |-- Let M|
|00001500| 65 20 53 74 6f 70 20 42 | 75 74 74 6f 6e 0d 20 20 |e Stop B|utton. |
|00001510| 73 65 74 20 74 68 65 20 | 69 6d 6d 65 64 69 61 74 |set the |immediat|
|00001520| 65 20 6f 66 20 73 70 72 | 69 74 65 20 32 31 20 74 |e of spr|ite 21 t|
|00001530| 6f 20 54 52 55 45 20 2d | 2d 20 47 75 69 64 65 20 |o TRUE -|- Guide |
|00001540| 4d 65 20 42 75 74 74 6f | 6e 0d 20 20 73 65 74 20 |Me Butto|n. set |
|00001550| 74 68 65 20 69 6d 6d 65 | 64 69 61 74 65 20 6f 66 |the imme|diate of|
|00001560| 20 73 70 72 69 74 65 20 | 32 32 20 74 6f 20 54 52 | sprite |22 to TR|
|00001570| 55 45 20 2d 2d 20 52 69 | 67 68 74 20 41 72 72 6f |UE -- Ri|ght Arro|
|00001580| 77 0d 65 6e 64 20 73 74 | 61 72 74 4d 6f 76 69 65 |w.end st|artMovie|
|00001590| 0d 0d 6f 6e 20 61 64 6a | 75 73 74 50 61 6c 65 74 |..on adj|ustPalet|
|000015a0| 74 65 0d 20 20 69 66 20 | 69 73 47 72 61 79 44 69 |te. if |isGrayDi|
|000015b0| 73 70 6c 61 79 28 29 20 | 74 68 65 6e 20 70 75 70 |splay() |then pup|
|000015c0| 70 65 74 50 61 6c 65 74 | 74 65 20 22 67 72 61 79 |petPalet|te "gray|
|000015d0| 73 34 22 2c 32 30 0d 65 | 6e 64 20 61 64 6a 75 73 |s4",20.e|nd adjus|
|000015e0| 74 50 61 6c 65 74 74 65 | 0d 0d 6f 6e 20 69 73 47 |tPalette|..on isG|
|000015f0| 72 61 79 44 69 73 70 6c | 61 79 0d 20 20 67 6c 6f |rayDispl|ay. glo|
|00001600| 62 61 6c 20 6d 79 44 69 | 73 70 0d 20 20 69 66 20 |bal myDi|sp. if |
|00001610| 6d 79 44 69 73 70 20 3c | 3e 20 30 20 74 68 65 6e |myDisp <|> 0 then|
|00001620| 20 0d 20 20 20 20 69 66 | 20 6d 79 44 69 73 70 28 | . if| myDisp(|
|00001630| 6d 47 65 74 44 65 70 74 | 68 29 20 3d 20 34 20 74 |mGetDept|h) = 4 t|
|00001640| 68 65 6e 0d 20 20 20 20 | 20 20 72 65 74 75 72 6e |hen. | return|
|00001650| 20 54 52 55 45 0d 20 20 | 20 20 65 6c 73 65 20 72 | TRUE. | else r|
|00001660| 65 74 75 72 6e 20 46 41 | 4c 53 45 0d 20 20 65 6c |eturn FA|LSE. el|
|00001670| 73 65 20 72 65 74 75 72 | 6e 20 46 41 4c 53 45 0d |se retur|n FALSE.|
|00001680| 65 6e 64 20 69 73 47 72 | 61 79 44 69 73 70 6c 61 |end isGr|ayDispla|
|00001690| 79 0d 0d 6f 6e 20 73 74 | 6f 70 4d 6f 76 69 65 0d |y..on st|opMovie.|
|000016a0| 20 20 67 6c 6f 62 61 6c | 20 4d 65 6e 75 0d 20 20 | global| Menu. |
|000016b0| 69 66 20 6f 62 6a 65 63 | 74 70 28 4d 65 6e 75 29 |if objec|tp(Menu)|
|000016c0| 20 74 68 65 6e 20 4d 65 | 6e 75 28 6d 44 69 73 70 | then Me|nu(mDisp|
|000016d0| 6f 73 65 29 0d 65 6e 64 | 20 73 74 6f 70 4d 6f 76 |ose).end| stopMov|
|000016e0| 69 65 0d 0d 6f 6e 20 4d | 6f 6e 69 74 6f 72 43 68 |ie..on M|onitorCh|
|000016f0| 65 63 6b 20 20 0d 20 20 | 67 6c 6f 62 61 6c 20 6d |eck . |global m|
|00001700| 79 44 69 73 70 0d 20 20 | 69 66 20 6f 62 6a 65 63 |yDisp. |if objec|
|00001710| 74 70 28 6d 79 44 69 73 | 70 29 20 74 68 65 6e 0d |tp(myDis|p) then.|
|00001720| 20 20 20 20 6d 79 44 69 | 73 70 28 6d 52 65 73 74 | myDi|sp(mRest|
|00001730| 6f 72 65 29 0d 20 20 20 | 20 75 70 64 61 74 65 73 |ore). | updates|
|00001740| 74 61 67 65 0d 20 20 20 | 20 6d 79 44 69 73 70 28 |tage. | myDisp(|
|00001750| 6d 44 69 73 70 6f 73 65 | 29 0d 20 20 65 6e 64 20 |mDispose|). end |
|00001760| 69 66 0d 65 6e 64 20 4d | 6f 6e 69 74 6f 72 43 68 |if.end M|onitorCh|
|00001770| 65 63 6b 0d 0d 6f 6e 20 | 52 65 73 74 6f 72 65 42 |eck..on |RestoreB|
|00001780| 61 6c 6c 6f 6f 6e 73 0d | 20 20 67 6c 6f 62 61 6c |alloons.| global|
|00001790| 20 4f 72 69 67 42 61 6c | 6c 6f 6f 6e 53 74 61 74 | OrigBal|loonStat|
|000017a0| 65 2c 42 61 6c 6c 6f 6f | 6e 0d 20 20 6f 70 65 6e |e,Balloo|n. open|
|000017b0| 58 4c 69 62 20 22 53 54 | 42 61 6c 6c 6f 6f 6e 54 |XLib "ST|BalloonT|
|000017c0| 6f 67 67 6c 65 22 20 0d | 20 20 73 65 74 20 42 61 |oggle" .| set Ba|
|000017d0| 6c 6c 6f 6f 6e 20 3d 20 | 53 54 42 61 6c 6c 6f 6f |lloon = |STBalloo|
|000017e0| 6e 54 6f 67 67 6c 65 28 | 6d 4e 65 77 29 0d 20 20 |nToggle(|mNew). |
|000017f0| 69 66 20 4f 72 69 67 42 | 61 6c 6c 6f 6f 6e 53 74 |if OrigB|alloonSt|
|00001800| 61 74 65 20 3d 20 22 74 | 72 75 65 22 20 74 68 65 |ate = "t|rue" the|
|00001810| 6e 0d 20 20 20 20 42 61 | 6c 6c 6f 6f 6e 28 6d 54 |n. Ba|lloon(mT|
|00001820| 75 72 6e 4f 6e 29 0d 20 | 20 65 6c 73 65 0d 20 20 |urnOn). | else. |
|00001830| 20 20 42 61 6c 6c 6f 6f | 6e 28 6d 54 75 72 6e 4f | Balloo|n(mTurnO|
|00001840| 66 66 29 0d 20 20 65 6e | 64 20 69 66 0d 20 20 42 |ff). en|d if. B|
|00001850| 61 6c 6c 6f 6f 6e 28 6d | 44 69 73 70 6f 73 65 29 |alloon(m|Dispose)|
|00001860| 0d 65 6e 64 20 52 65 73 | 74 6f 72 65 42 61 6c 6c |.end Res|toreBall|
|00001870| 6f 6f 6e 73 0d 0d 6f 6e | 20 72 65 73 74 6f 72 65 |oons..on| restore|
|00001880| 43 6f 6e 74 72 6f 6c 53 | 74 72 69 70 0d 20 20 67 |ControlS|trip. g|
|00001890| 6c 6f 62 61 6c 20 6f 72 | 69 67 43 6f 6e 74 72 6f |lobal or|igContro|
|000018a0| 6c 53 74 61 74 65 0d 20 | 20 69 66 20 6f 72 69 67 |lState. | if orig|
|000018b0| 43 6f 6e 74 72 6f 6c 53 | 74 61 74 65 20 74 68 65 |ControlS|tate the|
|000018c0| 6e 20 53 74 61 74 75 73 | 42 61 72 28 22 73 68 6f |n Status|Bar("sho|
|000018d0| 77 22 29 0d 65 6e 64 20 | 72 65 73 74 6f 72 65 43 |w").end |restoreC|
|000018e0| 6f 6e 74 72 6f 6c 53 74 | 72 69 70 0d 0d 2d 2d 20 |ontrolSt|rip..-- |
|000018f0| a5 a5 a5 20 46 49 4e 44 | 45 52 20 53 4b 49 4c 4c |... FIND|ER SKILL|
|00001900| 53 20 53 50 45 43 49 46 | 49 43 20 48 41 4e 44 4c |S SPECIF|IC HANDL|
|00001910| 45 52 53 0d 2d 2d 20 a5 | a5 20 52 45 4d 45 44 49 |ERS.-- .|. REMEDI|
|00001920| 41 54 49 4f 4e 20 4e 41 | 56 49 47 41 54 49 4f 4e |ATION NA|VIGATION|
|00001930| 0d 0d 6f 6e 20 72 65 4e | 61 76 69 67 61 74 65 20 |..on reN|avigate |
|00001940| 72 4d 61 72 6b 65 72 4e | 61 6d 65 2c 66 69 6e 61 |rMarkerN|ame,fina|
|00001950| 6c 4d 61 72 6b 65 72 4e | 61 6d 65 0d 20 20 67 6c |lMarkerN|ame. gl|
|00001960| 6f 62 61 6c 20 72 65 6d | 65 64 69 61 43 6f 75 6e |obal rem|ediaCoun|
|00001970| 74 0d 20 20 69 66 20 72 | 65 6d 65 64 69 61 43 6f |t. if r|emediaCo|
|00001980| 75 6e 74 20 3c 20 32 20 | 74 68 65 6e 0d 20 20 20 |unt < 2 |then. |
|00001990| 20 67 6f 20 74 6f 20 72 | 4d 61 72 6b 65 72 4e 61 | go to r|MarkerNa|
|000019a0| 6d 65 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 70 75 |me. els|e. pu|
|000019b0| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 72 65 6d |t empty |into rem|
|000019c0| 65 64 69 61 43 6f 75 6e | 74 0d 20 20 20 20 67 6f |ediaCoun|t. go|
|000019d0| 20 74 6f 20 66 69 6e 61 | 6c 4d 61 72 6b 65 72 4e | to fina|lMarkerN|
|000019e0| 61 6d 65 0d 20 20 65 6e | 64 20 69 66 0d 65 6e 64 |ame. en|d if.end|
|000019f0| 20 72 65 4e 61 76 69 67 | 61 74 65 0d 0d 2d 2d 20 | reNavig|ate..-- |
|00001a00| a5 a5 ca 53 43 52 4f 4c | 4c 20 42 41 52 53 0d 0d |...SCROL|L BARS..|
|00001a10| 6f 6e 20 73 63 72 6f 6c | 6c 41 72 72 6f 77 20 77 |on scrol|lArrow w|
|00001a20| 68 69 63 68 2c 20 74 6f | 4d 61 72 6b 65 72 0d 20 |hich, to|Marker. |
|00001a30| 20 50 75 70 70 65 74 53 | 70 72 69 74 65 20 31 34 | PuppetS|prite 14|
|00001a40| 2c 20 54 52 55 45 0d 20 | 20 69 66 20 77 68 69 63 |, TRUE. | if whic|
|00001a50| 68 20 63 6f 6e 74 61 69 | 6e 73 20 22 75 70 22 20 |h contai|ns "up" |
|00001a60| 74 68 65 6e 0d 20 20 20 | 20 53 77 61 70 43 61 73 |then. | SwapCas|
|00001a70| 74 20 31 34 2c 44 34 33 | 0d 20 20 65 6c 73 65 20 |t 14,D43|. else |
|00001a80| 69 66 20 77 68 69 63 68 | 20 63 6f 6e 74 61 69 6e |if which| contain|
|00001a90| 73 20 22 64 6f 77 6e 22 | 20 74 68 65 6e 0d 20 20 |s "down"| then. |
|00001aa0| 20 20 53 77 61 70 43 61 | 73 74 20 31 34 2c 44 34 | SwapCa|st 14,D4|
|00001ab0| 34 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 70 75 74 |4. end |if. put|
|00001ac0| 20 6d 61 72 6b 65 72 28 | 22 43 6c 69 63 6b 20 54 | marker(|"Click T|
|00001ad0| 6f 20 44 6f 22 29 20 2d | 20 32 20 69 6e 74 6f 20 |o Do") -| 2 into |
|00001ae0| 65 6e 64 4f 66 53 63 72 | 6f 6c 6c 0d 20 20 72 65 |endOfScr|oll. re|
|00001af0| 70 65 61 74 20 77 68 69 | 6c 65 20 74 68 65 20 6d |peat whi|le the m|
|00001b00| 6f 75 73 65 44 6f 77 6e | 20 61 6e 64 20 74 68 65 |ouseDown| and the|
|00001b10| 20 66 72 61 6d 65 20 b2 | 20 65 6e 64 4f 66 53 63 | frame .| endOfSc|
|00001b20| 72 6f 6c 6c 0d 20 20 20 | 20 69 66 20 74 68 65 20 |roll. | if the |
|00001b30| 66 72 61 6d 65 20 3c 20 | 65 6e 64 4f 66 53 63 72 |frame < |endOfScr|
|00001b40| 6f 6c 6c 20 74 68 65 6e | 0d 20 20 20 20 20 20 67 |oll then|. g|
|00001b50| 6f 20 74 6f 20 74 68 65 | 20 66 72 61 6d 65 20 2b |o to the| frame +|
|00001b60| 31 20 20 0d 20 20 20 20 | 65 6c 73 65 20 69 66 20 |1 . |else if |
|00001b70| 77 68 69 63 68 20 63 6f | 6e 74 61 69 6e 73 20 22 |which co|ntains "|
|00001b80| 6c 65 66 74 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |left" th|en. |
|00001b90| 20 50 75 70 70 65 74 53 | 70 72 69 74 65 20 31 34 | PuppetS|prite 14|
|00001ba0| 2c 20 46 41 4c 53 45 0d | 20 20 20 20 20 20 67 6f |, FALSE.| go|
|00001bb0| 20 6d 61 72 6b 65 72 28 | 74 6f 4d 61 72 6b 65 72 | marker(|toMarker|
|00001bc0| 29 20 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |) . e|nd if. |
|00001bd0| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 69 66 20 |end repe|at. if |
|00001be0| 77 68 69 63 68 20 63 6f | 6e 74 61 69 6e 73 20 22 |which co|ntains "|
|00001bf0| 75 70 22 20 74 68 65 6e | 0d 20 20 20 20 53 77 61 |up" then|. Swa|
|00001c00| 70 43 61 73 74 20 31 34 | 2c 44 34 34 0d 20 20 65 |pCast 14|,D44. e|
|00001c10| 6c 73 65 20 69 66 20 77 | 68 69 63 68 20 63 6f 6e |lse if w|hich con|
|00001c20| 74 61 69 6e 73 20 22 64 | 6f 77 6e 22 20 74 68 65 |tains "d|own" the|
|00001c30| 6e 0d 20 20 20 20 53 77 | 61 70 43 61 73 74 20 31 |n. Sw|apCast 1|
|00001c40| 34 2c 44 34 33 0d 20 20 | 65 6e 64 20 69 66 20 0d |4,D43. |end if .|
|00001c50| 20 20 50 75 70 70 65 74 | 53 70 72 69 74 65 20 31 | Puppet|Sprite 1|
|00001c60| 34 2c 20 46 41 4c 53 45 | 0d 65 6e 64 0d 0d 6f 6e |4, FALSE|.end..on|
|00001c70| 20 73 63 72 6f 6c 6c 41 | 72 72 6f 77 52 65 76 20 | scrollA|rrowRev |
|00001c80| 77 68 69 63 68 2c 20 74 | 6f 4d 61 72 6b 65 72 0d |which, t|oMarker.|
|00001c90| 20 20 2d 2d 20 73 70 65 | 63 69 61 6c 20 63 61 73 | -- spe|cial cas|
|00001ca0| 65 0d 20 20 50 75 70 70 | 65 74 53 70 72 69 74 65 |e. Pupp|etSprite|
|00001cb0| 20 31 33 2c 20 54 52 55 | 45 0d 20 20 69 66 20 77 | 13, TRU|E. if w|
|00001cc0| 68 69 63 68 20 63 6f 6e | 74 61 69 6e 73 20 22 75 |hich con|tains "u|
|00001cd0| 70 22 20 74 68 65 6e 20 | 0d 20 20 20 20 53 77 61 |p" then |. Swa|
|00001ce0| 70 43 61 73 74 20 31 33 | 2c 44 34 32 0d 20 20 65 |pCast 13|,D42. e|
|00001cf0| 6c 73 65 20 69 66 20 77 | 68 69 63 68 20 63 6f 6e |lse if w|hich con|
|00001d00| 74 61 69 6e 73 20 22 64 | 6f 77 6e 22 20 74 68 65 |tains "d|own" the|
|00001d10| 6e 20 0d 20 20 20 20 53 | 77 61 70 43 61 73 74 20 |n . S|wapCast |
|00001d20| 31 33 2c 44 34 31 0d 20 | 20 65 6e 64 20 69 66 0d |13,D41. | end if.|
|00001d30| 20 20 70 75 74 20 6d 61 | 72 6b 65 72 28 31 29 20 | put ma|rker(1) |
|00001d40| 2d 20 31 20 69 6e 74 6f | 20 65 6e 64 4f 66 53 63 |- 1 into| endOfSc|
|00001d50| 72 6f 6c 6c 0d 20 20 70 | 75 74 20 6d 61 72 6b 65 |roll. p|ut marke|
|00001d60| 72 28 30 29 20 2b 20 31 | 20 69 6e 74 6f 20 62 65 |r(0) + 1| into be|
|00001d70| 67 69 6e 4f 66 53 63 72 | 6f 6c 6c 0d 20 20 72 65 |ginOfScr|oll. re|
|00001d80| 70 65 61 74 20 77 68 69 | 6c 65 20 74 68 65 20 6d |peat whi|le the m|
|00001d90| 6f 75 73 65 44 6f 77 6e | 20 61 6e 64 20 74 68 65 |ouseDown| and the|
|00001da0| 20 66 72 61 6d 65 20 3c | 3d 20 65 6e 64 4f 66 53 | frame <|= endOfS|
|00001db0| 63 72 6f 6c 6c 20 61 6e | 64 20 74 68 65 20 66 72 |croll an|d the fr|
|00001dc0| 61 6d 65 20 3e 3d 20 62 | 65 67 69 6e 4f 66 53 63 |ame >= b|eginOfSc|
|00001dd0| 72 6f 6c 6c 0d 20 20 20 | 20 69 66 20 74 68 65 20 |roll. | if the |
|00001de0| 66 72 61 6d 65 20 3c 20 | 65 6e 64 4f 66 53 63 72 |frame < |endOfScr|
|00001df0| 6f 6c 6c 20 61 6e 64 20 | 74 68 65 20 66 72 61 6d |oll and |the fram|
|00001e00| 65 20 3e 20 62 65 67 69 | 6e 4f 66 53 63 72 6f 6c |e > begi|nOfScrol|
|00001e10| 6c 20 74 68 65 6e 0d 20 | 20 20 20 20 20 67 6f 20 |l then. | go |
|00001e20| 74 6f 20 74 68 65 20 66 | 72 61 6d 65 20 2d 20 31 |to the f|rame - 1|
|00001e30| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6e |. end| if. en|
|00001e40| 64 20 72 65 70 65 61 74 | 0d 20 20 69 66 20 77 68 |d repeat|. if wh|
|00001e50| 69 63 68 20 63 6f 6e 74 | 61 69 6e 73 20 22 75 70 |ich cont|ains "up|
|00001e60| 22 20 74 68 65 6e 0d 20 | 20 20 20 53 77 61 70 43 |" then. | SwapC|
|00001e70| 61 73 74 20 31 33 2c 44 | 34 31 0d 20 20 65 6c 73 |ast 13,D|41. els|
|00001e80| 65 20 69 66 20 77 68 69 | 63 68 20 63 6f 6e 74 61 |e if whi|ch conta|
|00001e90| 69 6e 73 20 22 64 6f 77 | 6e 22 20 74 68 65 6e 0d |ins "dow|n" then.|
|00001ea0| 20 20 20 20 53 77 61 70 | 43 61 73 74 20 31 33 2c | Swap|Cast 13,|
|00001eb0| 44 34 32 0d 20 20 65 6e | 64 20 69 66 20 0d 20 20 |D42. en|d if . |
|00001ec0| 50 75 70 70 65 74 53 70 | 72 69 74 65 20 31 33 2c |PuppetSp|rite 13,|
|00001ed0| 20 46 41 4c 53 45 0d 65 | 6e 64 20 73 63 72 6f 6c | FALSE.e|nd scrol|
|00001ee0| 6c 41 72 72 6f 77 52 65 | 76 0d 0d 6f 6e 20 53 77 |lArrowRe|v..on Sw|
|00001ef0| 61 70 43 61 73 74 20 63 | 68 61 6e 6e 65 6c 2c 63 |apCast c|hannel,c|
|00001f00| 61 73 74 49 44 0d 20 20 | 73 65 74 20 74 68 65 20 |astID. |set the |
|00001f10| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|00001f20| 65 20 63 68 61 6e 6e 65 | 6c 20 74 6f 20 74 68 65 |e channe|l to the|
|00001f30| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00001f40| 63 61 73 74 49 44 0d 20 | 20 75 70 64 61 74 65 53 |castID. | updateS|
|00001f50| 74 61 67 65 0d 65 6e 64 | 20 53 77 61 70 43 61 73 |tage.end| SwapCas|
|00001f60| 74 0d 0d 2d 2d 20 a5 a5 | 20 4d 45 4d 4f 20 48 41 |t..-- ..| MEMO HA|
|00001f70| 4e 44 4c 45 52 53 0d 0d | 6f 6e 20 74 79 70 65 4d |NDLERS..|on typeM|
|00001f80| 65 6d 6f 43 68 65 63 6b | 20 20 20 20 20 0d 20 20 |emoCheck| . |
|00001f90| 2d 2d 20 77 68 65 6e 20 | 74 68 65 20 75 73 65 72 |-- when |the user|
|00001fa0| 20 74 79 70 65 73 20 61 | 6e 79 20 66 6f 75 72 20 | types a|ny four |
|00001fb0| 63 68 61 72 61 63 74 65 | 72 73 20 74 68 65 20 77 |characte|rs the w|
|00001fc0| 6f 72 64 20 22 4d 65 6d | 6f 22 0d 20 20 2d 2d 20 |ord "Mem|o". -- |
|00001fd0| 69 73 20 69 6e 73 65 72 | 74 65 64 20 61 6e 64 20 |is inser|ted and |
|00001fe0| 74 68 65 20 6d 6f 76 69 | 65 20 66 69 6c 6c 73 20 |the movi|e fills |
|00001ff0| 69 6e 20 74 68 65 20 72 | 65 73 74 20 6f 66 20 6d |in the r|est of m|
|00002000| 65 6d 6f 2e 0d 20 20 2d | 2d 20 c6 20 4c 6f 63 61 |emo.. -|- . Loca|
|00002010| 6c 69 7a 65 20 74 68 65 | 20 77 6f 72 64 20 22 4d |lize the| word "M|
|00002020| 65 6d 6f 22 20 26 20 74 | 68 65 20 6e 75 6d 62 65 |emo" & t|he numbe|
|00002030| 72 20 6f 66 20 63 68 61 | 72 61 63 74 65 72 73 0d |r of cha|racters.|
|00002040| 20 20 70 75 74 20 74 68 | 65 20 74 65 78 74 20 6f | put th|e text o|
|00002050| 66 20 63 61 73 74 20 45 | 36 32 20 69 6e 74 6f 20 |f cast E|62 into |
|00002060| 57 6f 72 64 73 0d 20 20 | 69 66 20 57 6f 72 64 73 |Words. |if Words|
|00002070| 20 63 6f 6e 74 61 69 6e | 73 20 52 65 74 75 72 6e | contain|s Return|
|00002080| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 6e 6f | then. | put no|
|00002090| 52 65 74 75 72 6e 28 57 | 6f 72 64 73 29 20 69 6e |Return(W|ords) in|
|000020a0| 74 6f 20 63 61 73 74 20 | 45 36 32 0d 20 20 65 6c |to cast |E62. el|
|000020b0| 73 65 20 69 66 20 74 68 | 65 20 6e 75 6d 62 65 72 |se if th|e number|
|000020c0| 20 6f 66 20 63 68 61 72 | 73 20 69 6e 20 57 6f 72 | of char|s in Wor|
|000020d0| 64 73 20 3e 3d 20 34 20 | 74 68 65 6e 20 2d 2d 20 |ds >= 4 |then -- |
|000020e0| c6 0d 20 20 20 20 70 75 | 74 20 22 4d 65 6d 6f 22 |.. pu|t "Memo"|
|000020f0| 20 69 6e 74 6f 20 63 61 | 73 74 20 45 36 32 20 2d | into ca|st E62 -|
|00002100| 2d 20 c6 0d 20 20 20 20 | 67 6f 20 74 6f 20 74 68 |- .. |go to th|
|00002110| 65 20 66 72 61 6d 65 20 | 2b 20 31 0d 20 20 65 6e |e frame |+ 1. en|
|00002120| 64 20 69 66 0d 20 20 67 | 6f 20 74 6f 20 74 68 65 |d if. g|o to the|
|00002130| 20 66 72 61 6d 65 0d 65 | 6e 64 20 74 79 70 65 4d | frame.e|nd typeM|
|00002140| 65 6d 6f 43 68 65 63 6b | 0d 0d 6f 6e 20 53 74 64 |emoCheck|..on Std|
|00002150| 46 69 6c 65 43 68 65 63 | 6b 0d 20 20 2d 2d 20 4d |FileChec|k. -- M|
|00002160| 61 6b 65 73 20 73 75 72 | 65 20 74 68 61 74 20 74 |akes sur|e that t|
|00002170| 68 65 20 75 73 65 72 20 | 63 61 6e 20 74 79 70 65 |he user |can type|
|00002180| 20 69 6e 20 6f 6e 6c 79 | 20 66 6f 75 72 20 63 68 | in only| four ch|
|00002190| 61 72 61 63 74 65 72 73 | 0d 20 20 2d 2d 20 69 6e |aracters|. -- in|
|000021a0| 74 6f 20 74 68 65 20 53 | 74 61 6e 64 61 72 64 20 |to the S|tandard |
|000021b0| 46 69 6c 65 20 66 69 65 | 6c 64 2e 0d 20 20 2d 2d |File fie|ld.. --|
|000021c0| 20 c6 20 4c 6f 63 61 6c | 69 7a 65 20 22 55 6e 74 | . Local|ize "Unt|
|000021d0| 69 74 6c 65 64 22 2c 20 | 22 4d 65 6d 6f 22 2c 20 |itled", |"Memo", |
|000021e0| 26 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |& the nu|mber of |
|000021f0| 63 68 61 72 61 63 74 65 | 72 73 0d 20 20 70 75 74 |characte|rs. put|
|00002200| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 63 61 73 | the tex|t of cas|
|00002210| 74 20 45 32 38 20 69 6e | 74 6f 20 57 6f 72 64 73 |t E28 in|to Words|
|00002220| 0d 20 20 69 66 20 77 6f | 72 64 73 20 3c 3e 20 22 |. if wo|rds <> "|
|00002230| 55 6e 74 69 74 6c 65 64 | 22 20 74 68 65 6e 20 20 |Untitled|" then |
|00002240| 2d 2d 20 c6 0d 20 20 20 | 20 69 66 20 57 6f 72 64 |-- .. | if Word|
|00002250| 73 20 63 6f 6e 74 61 69 | 6e 73 20 52 65 74 75 72 |s contai|ns Retur|
|00002260| 6e 20 74 68 65 6e 0d 20 | 20 20 20 20 20 70 75 74 |n then. | put|
|00002270| 20 6e 6f 52 65 74 75 72 | 6e 28 57 6f 72 64 73 29 | noRetur|n(Words)|
|00002280| 20 69 6e 74 6f 20 63 61 | 73 74 20 45 32 38 0d 20 | into ca|st E28. |
|00002290| 20 20 20 65 6c 73 65 20 | 69 66 20 28 74 68 65 20 | else |if (the |
|000022a0| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 73 20 |number o|f chars |
|000022b0| 69 6e 20 57 6f 72 64 73 | 20 3e 20 34 29 20 74 68 |in Words| > 4) th|
|000022c0| 65 6e 20 2d 2d 20 c6 0d | 20 20 20 20 20 20 70 75 |en -- ..| pu|
|000022d0| 74 20 22 4d 65 6d 6f 22 | 20 69 6e 74 6f 20 63 61 |t "Memo"| into ca|
|000022e0| 73 74 20 45 32 38 20 2d | 2d 20 c6 0d 20 20 20 20 |st E28 -|- .. |
|000022f0| 65 6e 64 20 69 66 0d 20 | 20 65 6e 64 20 69 66 0d |end if. | end if.|
|00002300| 20 20 67 6f 20 74 6f 20 | 74 68 65 20 66 72 61 6d | go to |the fram|
|00002310| 65 20 0d 65 6e 64 20 53 | 74 64 46 69 6c 65 43 68 |e .end S|tdFileCh|
|00002320| 65 63 6b 0d 0d 6f 6e 20 | 74 79 70 65 4d 65 65 74 |eck..on |typeMeet|
|00002330| 41 74 34 43 68 65 63 6b | 0d 20 20 2d 2d 20 77 68 |At4Check|. -- wh|
|00002340| 65 6e 20 74 68 65 20 75 | 73 65 72 20 74 79 70 65 |en the u|ser type|
|00002350| 73 20 61 6e 79 20 31 30 | 20 63 68 61 72 61 63 74 |s any 10| charact|
|00002360| 65 72 73 20 74 68 65 20 | 77 6f 72 64 73 20 22 4d |ers the |words "M|
|00002370| 65 65 74 20 61 74 20 34 | 2e 22 0d 20 20 2d 2d 20 |eet at 4|.". -- |
|00002380| 61 72 65 20 69 6e 73 65 | 72 74 65 64 2e 0d 20 20 |are inse|rted.. |
|00002390| 2d 2d 20 c6 20 4c 6f 63 | 61 6c 69 7a 65 20 74 68 |-- . Loc|alize th|
|000023a0| 65 20 77 6f 72 64 20 22 | 4d 65 6d 6f 22 20 26 20 |e word "|Memo" & |
|000023b0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch|
|000023c0| 61 72 61 63 74 65 72 73 | 0d 20 20 70 75 74 20 74 |aracters|. put t|
|000023d0| 68 65 20 74 65 78 74 20 | 6f 66 20 63 61 73 74 20 |he text |of cast |
|000023e0| 45 36 32 20 69 6e 74 6f | 20 57 6f 72 64 73 0d 20 |E62 into| Words. |
|000023f0| 20 69 66 20 57 6f 72 64 | 73 20 63 6f 6e 74 61 69 | if Word|s contai|
|00002400| 6e 73 20 52 65 74 75 72 | 6e 20 74 68 65 6e 0d 20 |ns Retur|n then. |
|00002410| 20 20 20 70 75 74 20 6e | 6f 52 65 74 75 72 6e 28 | put n|oReturn(|
|00002420| 57 6f 72 64 73 29 20 69 | 6e 74 6f 20 63 61 73 74 |Words) i|nto cast|
|00002430| 20 45 36 32 0d 20 20 65 | 6c 73 65 20 69 66 20 28 | E62. e|lse if (|
|00002440| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch|
|00002450| 61 72 73 20 69 6e 20 57 | 6f 72 64 73 20 3e 20 31 |ars in W|ords > 1|
|00002460| 30 29 20 74 68 65 6e 20 | 2d 2d 20 c6 0d 20 20 20 |0) then |-- .. |
|00002470| 20 70 75 74 20 22 4d 65 | 65 74 20 61 74 20 34 2e | put "Me|et at 4.|
|00002480| 22 20 69 6e 74 6f 20 63 | 61 73 74 20 45 36 32 20 |" into c|ast E62 |
|00002490| 2d 2d 20 c6 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |-- .. e|nd if. |
|000024a0| 67 6f 20 74 6f 20 74 68 | 65 20 66 72 61 6d 65 20 |go to th|e frame |
|000024b0| 0d 65 6e 64 20 74 79 70 | 65 4d 65 65 74 41 74 34 |.end typ|eMeetAt4|
|000024c0| 43 68 65 63 6b 0d 0d 6f | 6e 20 6e 6f 52 65 74 75 |Check..o|n noRetu|
|000024d0| 72 6e 20 74 68 65 53 74 | 72 69 6e 67 0d 20 20 70 |rn theSt|ring. p|
|000024e0| 75 74 20 22 22 20 69 6e | 74 6f 20 6e 65 77 53 74 |ut "" in|to newSt|
|000024f0| 72 69 6e 67 0d 20 20 72 | 65 70 65 61 74 20 77 69 |ring. r|epeat wi|
|00002500| 74 68 20 63 68 61 72 4e | 75 6d 20 3d 20 31 20 74 |th charN|um = 1 t|
|00002510| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |o the nu|mber of |
|00002520| 63 68 61 72 73 20 69 6e | 20 74 68 65 53 74 72 69 |chars in| theStri|
|00002530| 6e 67 0d 20 20 20 20 70 | 75 74 20 63 68 61 72 20 |ng. p|ut char |
|00002540| 63 68 61 72 4e 75 6d 20 | 6f 66 20 74 68 65 53 74 |charNum |of theSt|
|00002550| 72 69 6e 67 20 69 6e 74 | 6f 20 74 68 65 43 68 61 |ring int|o theCha|
|00002560| 72 0d 20 20 20 20 69 66 | 20 74 68 65 43 68 61 72 |r. if| theChar|
|00002570| 20 3c 3e 20 52 45 54 55 | 52 4e 20 74 68 65 6e 20 | <> RETU|RN then |
|00002580| 70 75 74 20 74 68 65 43 | 68 61 72 20 61 66 74 65 |put theC|har afte|
|00002590| 72 20 6e 65 77 53 74 72 | 69 6e 67 20 0d 20 20 65 |r newStr|ing . e|
|000025a0| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 72 65 74 75 |nd repea|t. retu|
|000025b0| 72 6e 20 6e 65 77 53 74 | 72 69 6e 67 0d 65 6e 64 |rn newSt|ring.end|
|000025c0| 20 6e 6f 52 65 74 75 72 | 6e 0d 0d 6f 6e 20 67 6f | noRetur|n..on go|
|000025d0| 42 61 63 6b 57 68 65 72 | 65 49 43 61 6d 65 46 72 |BackWher|eICameFr|
|000025e0| 6f 6d 0d 20 20 67 6c 6f | 62 61 6c 20 70 6f 69 6e |om. glo|bal poin|
|000025f0| 74 69 6e 67 53 6b 69 6c | 6c 73 0d 20 20 67 6f 20 |tingSkil|ls. go |
|00002600| 74 6f 20 66 72 61 6d 65 | 20 22 45 6e 64 20 50 6f |to frame| "End Po|
|00002610| 69 6e 74 69 6e 67 20 53 | 6b 69 6c 6c 73 22 20 6f |inting S|kills" o|
|00002620| 66 20 6d 6f 76 69 65 20 | 70 6f 69 6e 74 69 6e 67 |f movie |pointing|
|00002630| 53 6b 69 6c 6c 73 0d 65 | 6e 64 20 67 6f 42 61 63 |Skills.e|nd goBac|
|00002640| 6b 57 68 65 72 65 49 43 | 61 6d 65 46 72 6f 6d 0d |kWhereIC|ameFrom.|
|00002650| 1a 47 46 58 20 2d 20 41 | 70 70 6c 65 20 43 6f 6d |.GFX - A|pple Com|
|00002660| 70 75 74 65 72 2c 20 49 | 6e 63 2e 13 ca ca 20 2d |puter, I|nc.... -|
|00002670| 20 43 61 72 6f 6c 69 6e | 65 20 53 6c 6f 61 6e 00 | Carolin|e Sloan.|
|00002680| 01 | |. | |
+--------+-------------------------+-------------------------+--------+--------+
